home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / graphics / 3dvect37.zip / STUFF.INC < prev    next >
Text File  |  1994-06-22  |  3KB  |  117 lines

  1. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  2. ;
  3. ; Filename     : stuff.inc
  4. ; Included from: Main.asm
  5. ; Description  : this file only contains useless stuff used in that cheap main.exe demo.
  6. ;
  7. ; Written by: John McCarthy
  8. ;             1316 Redwood Lane
  9. ;             Pickering, Ontario.
  10. ;             Canada, Earth, Milky Way (for those out-of-towners)
  11. ;             L1X 1C5
  12. ;
  13. ; Internet/Usenet:  BRIAN.MCCARTHY@CANREM.COM
  14. ;         Fidonet:  Brian McCarthy 1:229/15
  15. ;   RIME/Relaynet: ->CRS
  16. ;
  17. ; Home phone, (905) 831-1944, don't call at 2 am eh!
  18. ;
  19. ; John Mccarthy would really love to work for a company programming Robots
  20. ; or doing some high intensive CPU work.  Hint. Hint.
  21. ;
  22. ; Send me your protected mode source code!
  23. ; Send me your Objects!
  24. ; But most of all, Send me a postcard!!!!
  25. ;
  26. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  27.  
  28.         public _putdosmsg
  29. _putdosmsg:
  30.         push ax
  31.         push edx
  32.         add edx,_code32a
  33.         mov al,dl
  34.         and ax,0fh
  35.         shr edx,4
  36.         mov v86r_ds,dx
  37.         mov v86r_dx,ax
  38.         mov v86r_ah,9
  39.         mov al,21h
  40.         int 33h
  41.         pop edx
  42.         pop ax
  43.         ret
  44.  
  45. hextbl          db      '0123456789ABCDEF'
  46.  
  47. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  48. ; Put 8 digit hex number to screen buffer
  49. ; In:
  50. ;   EAX - number to put
  51. ;   EDI -> screen buffer location to put at
  52. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  53. _puthexnum:
  54.         push eax ebx ecx edx edi
  55.         mov ebx,offset hextbl
  56.         mov edx,eax
  57.         mov ecx,8
  58.         mov ah,0fh
  59. puthexnuml0:
  60.         rol edx,4
  61.         mov al,dl
  62.         and al,0fh
  63.         xlat
  64.         stosw
  65.         loop puthexnuml0
  66.         pop edi edx ecx ebx eax
  67.         ret
  68.  
  69. wipe_v_memory:
  70.         @rlp edi,0a0000h   ; wipe video memory
  71.         mov ecx,320*200*4/4/4
  72.         xor eax,eax
  73.  
  74.         rep stosd
  75.  
  76.         ret
  77.  
  78. endtext db "Send me a postcard!",13,10
  79.         db 13,10
  80.         db "John McCarthy tries to be a regular on Digital Pixel: (416) 298-1487",13,10
  81.         db "                           and on the Toronto VR SIG: (416) 631-6625",13,10
  82.         db 13,10
  83.         db "Or write to this address:",13,10
  84.         db 13,10
  85.         db "    John McCarthy",13,10
  86.         db "    1316 Redwood Lane",13,10
  87.         db "    Pickering, Ontario.",13,10
  88.         db "    Canada, Earth, Milky Way.  (for those out-of-towners)",13,10
  89.         db "    L1X 1C5",13,10
  90.         db "$"
  91.  
  92. ; screen text for font routines
  93.  
  94. runscreen:
  95.            border   0,0,xactual-1,yactual-1,16*3
  96.            steelbox 3,3,xactual-1-3,yactual-1-3,16*3,28
  97.            hole     xmin+xcenter-2,ymin+ycenter-2,xmax+xcenter+1,ymax+ycenter+1,16*3
  98.            fillarea xmin+xcenter,ymin+ycenter,xmax+xcenter-1,ymax+ycenter-1,0
  99.            textend
  100.  
  101. runtext:
  102.            newtext 35,13,14
  103.            db "3D Vectors in 320x400 Mode-X"
  104.  
  105.            lowercase
  106.  
  107.            newtext 15,yactual-32,14
  108.            db "Vector Routines by John McCarthy"
  109.  
  110.            newtext 11,yactual-22,9
  111.            db "X-Mode Routines by Matt Pritchard"
  112.  
  113.            newtext 23,yactual-12,12
  114.            db "Protected Mode Header by TRAN"
  115.  
  116.            textend
  117.